<%@ Language = VBScript %>
<% Option Explicit %>
<%
response.buffer = true
response.expiresAbsolute = #1/1/2000#
response.CacheControl = "Private"
dim relative_path_to_database
relative_path_to_database = "2020applications.mdb"
%>
<%
dim i
dim displayemptyList
dim fontSize
dim referring_page
dim referring_fieldname
displayemptyList=0
fontSize="11px"
IF request.querystring("action") = "add2quicklist" THEN
IF CheckApp("20/20 Real Estate") THEN
response.cookies("quicklist")(request.querystring("ID")) = request.querystring("display_title") &" in "& request.querystring("city")
ELSE
response.cookies("quicklist")(request.querystring("ID")) = request.querystring("display_title") &" - "& request.querystring("manufacturer") &", "& request.querystring("model")
END IF
response.cookies("quicklist").expires = #12/12/2010#
ELSEIF request.querystring("action") = "removefromquicklist" THEN
response.cookies("quicklist")(request.querystring("ID")) = ""
END IF
%>
<%
IF CheckApp("20/20 Real Estate") THEN
referring_page = "propertylistings.asp"
referring_fieldname = "propertyID"
ELSE
referring_page = "vehiclelistings.asp"
referring_fieldname = "vehicleID"
END IF
%>
Your <%=request.servervariables("SERVER_NAME")%> Quicklist
<%=Get2020HeadInsert("login")%>
<% IF CheckApp("20/20 Real Estate") THEN %>
/2020realestate_stylesheet.css>
<% END IF %>
<% IF CheckApp("20/20 Auto Gallery") THEN %>
/2020autogallery_stylesheet.css>
<% END IF %>
<%
END IF
END IF
ELSE
displayemptyList=1
END IF
IF request.cookies("quicklist").HasKeys THEN
%>
<%
FOR EACH i IN request.cookies("quicklist")
IF len(request.cookies("quicklist")(i)) > 0 THEN
CALL DisplayListOptions(i,request.cookies("quicklist")(i))
displayemptyList=0
END IF
NEXT
%>
<% END IF %>
<% IF displayemptyList=1 THEN %>
Your QuickList is currently Empty. Click here to search our site.
<% END IF %>
<%
cn.close
set cn=nothing
%>
<%
SUB DisplayListOptions(ID,cookievalue)
dim SQL
IF CheckApp("20/20 Real Estate") THEN
SQL = "SELECT display_title, city, show_on_website FROM properties WHERE propertyID = "& i &";"
set rs = cn.Execute(SQL)
IF rs.eof THEN
%>
<%
END IF
rs.close
set rs = nothing
ELSEIF CheckApp("20/20 Auto Gallery") THEN
SQL = "SELECT display_title, manufacturer, model, show_on_website FROM vehicles WHERE vehicleID = "& i &";"
set rs = cn.Execute(SQL)
IF rs.eof THEN
%>
&display_title=<%=request.querystring("display_title")%>&city=<%=request.querystring("city")%>">Add <%=request.querystring("display_title")%> in <%=request.querystring("city")%> to your QuickList?